— Sa 


Ninna ia 


MBD-11-DDDRA-A COPYRIGHT © 1976 





ce ee ns a em ee ee mr re ee eee ee ee ee es 
. 


BOl 


MAIN, MACYLL E°.7s2) iS-O0CT-7"& 18:53 PRE 2 
SODRAR. FLL 
: 
3 
ba 
-REM [ 
IDENTIFICATION 
PRODUCT CODE: MAINDEC-3 1-DDDRA-A-D 
PRODUCT NAME: ORiIC DEVICE REGISTER TEST 
DATE RELEASED: 21 DECEMSER 1975 
MAINTAINER: DIAGNOSTIC GROUP 
> 


NOT TRUED Rape Hr W pel 
ig ou Al aa AR ON. DIGITAL E ag CORPORAT I Ot 
BILITY FOR ANY ERRORS AY APPEAR IN TH DOCUMENT. 


THE Soe OF DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY oy J USED OR COPIED IN ACCORDANCE WITH THE 


rae er eee ny IN ts Ee IS a yew TO CHANGE WITHOUT 


DIGITAL EQUIPMENT Senet ion ASSUMES NO RESPONSIBILITY 4: 


COPYRIGHT (C) 1975 DIGITAL EGUIPMENT CORPORATION 


a ee | tee Se 








Cott ee ee renee 


i 
i 
| 


MAIN, 


tj mo 
. 


tu 
. 
tu 


w Ww 


- 


4.3 


4.3.1 


COl 


MACYI2 27( 732) 18-OCT-76 15:53 PAGE 3 
— DOORAR. Pil 


TEST 10 OPERATE 
(8COBR) 


REQUIREMENTS 

EQUIPMENT 

POP-11 STANDARD COMPUTER 

ORIIC 

BCOSR FOR EACH DR1IC 

STORAGE 

2.2.1 THE PROGRAM LORDS INTO 4K OF MEMORY WITH BOOTSTRAP 


LOADING PROCEDURE 
METHOD 
ABSOLUTE LOADER 


STARTING PROCEDURE 
CONTROL SWITCH SETTING 


plat AT SA 200 ALL SWITCHES SHOULD BE DOWN OR ZERO. 
(IF NOT ZERO, BIT O TO 8 WILL BE STARTING VECTOR. ) 


STARTING ADDRESS OR ADDRESSES 

(A) 200 = START OF TEST FOR N NORMAL TESTING 

(B) 204 = SPECIAL ENTRANCE --FOR TESTING UNIQUE DRIIC 
(C) 210 = RESTART--FOR STARTING AFTER SHUT DOWN 
PROGRAM AND/OR OPERATOR ACTION 

OAD PROGRAM INTO MEMORY. 

IF THERE IS NO TTY IN THE SYSTEM 

PATCH THE TAGS $TPS AND S$TPB WITH 

SET SWITCH REGISTER TO STARTING ADDRESS. 


L 
PRESS START. 
T "WILL STAY IN SECTION AND LOOP. 


FOR SPECIAL ENTRANCE - SA204 
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a SWITCH REGISTER EQUAL TO CSR ADDRESS OF ORIIC 
LT SET SWITCH REGISTER EQUAL TO VECTOR ADDRESS OF DRIIC 


ss 
RAISE SWITCH 10 TO "1" TO INHIBIT SEQUENCING TO NEXT ORIIC 
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OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


5.1.1 AT SA 200 .. THE INSTRUCTION AND LOGIC TEST. 
WITH on Ena SUI TCHES pee HE PROGRAM WILL PRINT 
OUT ONTINUE IN TEST. 
("7 lh VECTOR ADDRESS” WILL 
T COMPLETION OF TESTING EACH DRIIC IF 
erie ‘Ts BOUN. IF SWO6 IS UP THEN NOTHING WILL BE 


PRIN 

INSTEAD. THERE WILL BE “S" ON THE DISPLAY LIGHTS 
COUPLE a SECCNDS AND THEN PROGRAM WILL 

HALT AT LOCATION 2Se. 

PRESS CONTINUE TO RESTART.) 


5.1.2 SWITCH SETTINGS ARE 


S415 = 1 OR UP ... HALT ON ERROR 

SuI4 = 1 OR UP ... SCOPE LOOP 

SWi3 = 1 OR UP ... INHIBIT PRINTOUT 

SWl2 = 1 er UP ... NOT USED 

SW11 = 1 UP ... INHIBIT ITERATION Le 

Suid = 1 o@ We © . DO NOT ADVANCE TO NEXT OR11 

SWOS = | UP ... INHIBIT PRINTOUT OF DEVICE TESTED. 
SWOB = 1 OR UP ...HALT ON END OF PASS. 


SUBROUTINE ABSTRACTS 
S.2.1 BEGIN SA 200 


ED BETWEEN EACH SUBTEST 
iT C is TARTING 


BEING 
ILL JUMP TO THE 
LOOP IS RE- 


5.2.3 HALT 


IS A ROUTINE THAT PRINTS-OUT AN ADDRESS THAT TAGS 
THE FAILING SUSTEST, AND THE INCORRECT DATA AT 


RICURE, F THERE 1S A TTY. 
IT ALSO forte aka RE’ pee 2 OF T 
DETECTED ERROR AND THE PROCESSOR STATUS REGISTER 
STARTING AT LOCATION 017400. 


EO! 
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(S. OPERATING PROCEDURE CONT’D) 


$.3 PROGRAM AND/OR OPERATOR ACTION 
EITHER A) ONLY IF THERE IS A TTY --- 
S.3.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
S.3.2 PATCH THE TAGS STPS AND STPB 
WITH 177570 , 


5.2.3 LOAD ADDRESS o00200 
5.3.4 CLEAR CONSOLE SWITCHES 

5.3.5 SET SW1S=1,SW11=1,SWO7=1,SWOS=1 

5.3.6 PRESS START 

IF THERE IS NO ERROR, PROGRAM WILL RUN 

FOR A FEW SECONDS, AT THE END OF WHICH THERE WILL BE “S” 
ON THE DISPLAY PeauTs FOR COUPLE OF SECONDS AND THEN 
PROGRAM WILL HALT AT ADDRESS 25° FOR END OF PASS. 

PRESS CONTINUE TO CONTINUE THE PROGRAM. 


| ad ERROR ENCOUNTERED, PROGRAM WILL HALT AT ADDRESS 


TO DETERMINE TYPE OF ERROR: 
5.3.7 LOAD ADDRESS 017400 

5.3.8 PRESS EXAMINE 

CONTENT OF THIS LOCATION IS ---PC+2 OF THE DETECTED ERROR 
5.3.9 PRESS EXAMINE ‘ 

CONTENT IS --- PROCESSOR STATUS REGISTER 

TO TEST IF THERE IS ANY MORE ERROR IN ANY OTHERE TEST: 
5.3.10 LOAD ADDRESS 000200 

5.3.11 CLEAR CONSOLE SWITCHES 

5.3.12 SET SWIS=1,SW11=1,SWO7=1,SWOb=1 

5.3.13 PRESS START 

PROGRAM WILL HALT FOR THE FIRST ERROR THAT WAS JUST OBSERVED 
5.3.14 PRESS CONTINUE 


— me we ee re ee 
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IF THE PROGRAM HALTS AT ADDRESS 3746: 

5.3.15 LOAD ADDRESS 917400 

5.3.16 PRESS EXAMINE 

CONTENT IS THE NEW PC+e OF THE DETECTED ERROR 
NEXT LOCATION CONTAINS PROCESSOR STATUS REGISTER 
STEPS 5.3.10 THROUGH S.3.16 SHOULD BE REPEATED 
FOR ANY FURTHER ERROR. 


8) IF THERE IS A TTY --- 

5.3.1 LOAD PROGRAM INTO MENCRY 

5.3.2 DO NOT PATCH ANY WHERE 

5.2.3 CLEAR CONSOLE SWITCHES 

5.3.4 PRESS START 

PROGRAM WILL TYPE THE DEVICE ADDRESS FOLLOWED BY THE VECTOR 
ADDRESS. 

THEN IF THERE IS NO ERROR AND IF SWO6 IS DOWN, 

“/ DEVICE REGISTER VECTOR ADDRESS” WILL BE 


» TYPED OUT FOR END OF PASS. THERE WILL BE “S” 


ON THE DISPLAY LIGHTS BEFORE THE TYPE OUT. 

IF SWO& IS UP PROGRAM WILL HALT AT 252 AND 

THERE WILL BE NO TYPE OUT. 

IF THERE IS ANY ERROR PROGRAM WILL TYPE OUT: 

PC+2 OF DETECTED ERROR PROCESSOR STATUS REGISTER 
DEVICE ADDRESS VECTOR ADDRESS. (ALL FOUR IN ONE LINE) 
IF SW15 IS UP PROGRAM WILL HALT AT 3746 AFTER TYPE OUT. 
PRESS CONTINUE TO CONTINUE THE PROGRAM. 


ERRORS 
ERROR PRINTOUT 


ee - ee ee ee ee 
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wn 


IN A FOUR WORD FORMAT. THE 1ST IS THE PC+2 OF THE 
pefecte D ERROR. THE eND Is THE PROCESSOR STATUS 
STER. THE 3RD IS DEVICE ADDRESS, THE 4TH IS 
VECTOR ADORESS. 


ERROR RECOVERY 
DEPRESS CONTINUE TO RESTART SECTION 


- I0l 
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RESTRICTIONS 

STARTING RESTRICTION 
NONE 

OPERATIONAL RESTRICTION 


THE DORI1C MUST HAVE - BCOBR CABLE TO RUN 
THIS TEST. 


NOTE THAT THE DR1IC HAS FLOATING VECTORS: 


THE BELOW IS THE ASSIGNMENT OF FLOATING VECTORS, THE ASSIGNED 
SEQUENCES ARF: 


STARTING AT 300 AND WORKING UPWARD ALL DC11’S WILL BE ASSIGNED. 
THEN ANY EXTRA KL11 CALLED FOR (VTOS, VTO6, £C11) 

THEN ANY DP11 CALLED FOR. 

THEN ANY DM11 CALLED FOR. 

THEN ANY DN11 CALLED FOR. 

THEN ANY DM11BB CALLED FOR. 

THEN ANY DR1IJA CALLED FOR. 

THEN ANY DR11C CALLED FOR. 

THe oR AND ORiIE p DEVICE ADDRESSES WILL BE ASSIGNED IN ee a 

THE HIGH ADDRESS LIMIT AND PROCEED DOWNWARD. USERS AND SFECTAL SySTEns 


SHOULD START THEIR ASSIGNMENTS OF SPECIAL DEVICES AT THE LOW 
LIMIT AND WORK UP. AFTER ASSIGNING ALL DR11A’S, ASSIGN DR1IC’S 


da a i a on 
Se on Se see pee 


767776 TO 767770 DR1IC #0 sASSUMING NO DR11A’S 
767766 TO 767760 DR1IC #1 
76770 10 767700 . ~—SODRAIC. 87 


767606 TO 767600 DR11C #15 
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8. MISCELLANEOUS 
Re TERS Ae Br TIPLE _DRLiC OR_A SYSTEM AND IT 
HEM. THIS MAY BE ACHIEVED BY U 
STARTING ADDRESS AND “own SW10 ON A ONE (UP) T 
TO THE NEXT DRIIC. SEE 4.3.1. 
8.i EXECUTION TIME 
FOR EACH DR1IC ABOUT 1 MINUTE 
8.2 UNTESTED LOGIC 


SIGNALS re USER NOT TESTED: 
A READY" 







TAL 
EGUENCING 


“DA 
“INIT” TO THE USER 

9. PROGRAM DESCRIPTION 
THIS PROGRAM WHEN STARTED AT 200 CHECKS THE STANDARD DRI1-C’S 


THE PROGRAM THEN PERFORMES AN INCREMENTAL LOGIC CHECK FOR 
THE SELECTED DRIIC. 


THE DATA REGISTER IS TESTED TO SEE IF “RESET” CLEARS IT, 
AND IF IT WILL HOLD ALL COMBINATIONS OF NUMBERS. 


THE READ/WRITE BITS OF THE STATUS REGISTER ARE ALSO TESTED. . 


BOTH THE “A” AND “B™ INTERRUPTS ARE TESTED TO SEE IF THEY 
INTERRUPT AT THE CORRECT BUS REQUEST LEVEL BR-S. 


| MAIN, MACYLL 271732) 18-OCT-76 15:53 PAGE 10 
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| T THE END OF THE TEST AN ’/’ IS TYPED AND AL 
| SERIE Geran gE oh hos cele 


THE UNIT ret SELECTED 
via ‘STO. 10) HOR Pecans 1b AINE N REXT Balt -C. 
pul eu sre. ON pe SYSTEM THEN THE PROGRAM RESTARTS TESTING 
' 


AFTER ALL DR11-C’S HAVE BEEN TESTED THE PROGRAM WILL 
TYPE ’/’ .AND RESTART TESTING WITH THE INITIAL DR1I1-C. 


IF NO ERRORS OCCUR AND THREE DR11-C’S ARE AVAILABLE 
AND ane 3 Apne THE PROGRAM WILL TYPE. 


157770 1000 # 
157760 1010 # 
ETC. 

IF Sut 9 IS UP THEN 


£ 
% 


cee ee ee ee = -  - 
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IF A POWER FAIL OCCURS THE PROGRAM WILL RESTART AT “START”. 


10. LISTING 


OS EE IRS 
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DODRAA.P11 
:GENERAL REGISTER LOGIC TEST 
=) 
HLT=104000 
SR=177570 
CSR=167770 
STKPTR=1200 
;REGISTER DEFINITIONS 
RO=RO 
Ri=81 
Re=Re2 
R3=R3 
RY=R4 
RS= 
SP=R6 
| PC=R7 
SWITCHES 
SW9=1 
SW10= 
SwW11=4000 
SW13= 
| SW14=40000 
| 41g .ENABLE AB 
429 "MCALL estes STYPOCT, .STRAP, .EQUAT, . SPOWER 
| Hel “MCALL SETUP, .SETUP, .SCATCH 
| 23 .SBTTL BASIC DEFINITIONS 
igs sen jXINITIAL ADDRESS OF THE STACK POINTER *#* 1100 xx 
| 427 ET ouIV , ERROR ;BASIC DEFINITION OF ERROR CALL 
42g fe 107, SCOPE ‘BASIC DEFINITION OF SCOPE CALL 
| Hes 177776 age “PROCESSOR STATUS WORD 
| 431 177774 STK TSa55q -STACK LIMIT Re GISTER 
| (433 177772 IRG= 177772 PROGRAM INTE EQUEST REGISTER 
433 177570 SuR= 477570 ;SWITCH REGISTER 
| MBS z 
| 436 ;¥GENERAL PURPOSE REGISTER DEFINITIONS 
437 oo0000 RO= 40 GENERAL REGISTER 
439 000001 Riz “1 “GENERAL REGISTER 
439 ooo0ge2 Re= 42 GENERAL REGISTER 
R3= %3 GENERAL REGISTER 
44] ocoo04 R4= %, GENERAL REGISTER 
RS= 4S GENERAL REGISTER 
443 000006 Rb= “6 *GENERAL REGISTER 
que —— RZQUIV Ab, SP OTACK POINTER 
HH “EQUIV R7,PC PROGRAM COUNTER 


MO1 
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DDDRAA.P11 Basi¢ DEFINITIONS 
448 -#"SWITCH REGISTER” SWITCH DEFINITIONS 
43 SwiS= 100000 
450 040000 Swi4= 40000 
/ a] SWi3= 20000 
910000 SWi2z= 10000 
453 004009 SWil= 4000 
454 00 Swi0= 2000 
4yéS 001000 SwO9= 1900 
456 00 Swos= 400 
457 00 SwO7= 
458 000100 SwOb= 100 
459 40 SWOS= 
466 SWO4= 20 
461 000010 Swo3= 10 
462 SwO2= 
463 2 SWOl= : 
yey 000001 SWOO= 
GES EQUIV dy09, SW9 
4g6 TEQUIV Swos} Swe 
467 “EQUIV 5WO7,SW 
468 “EQUIV SWO6, 
4&S "EQUIV SwOS; SWS 
470 [EQUIV SwWO¥' 
4? “EQUIV SwWO3;SW3 
| 472 EQUIV SWO2; 
| 43 EQUIV SWOI;SW1 
pe EQUIV . 
4% -¥DATA BIT DEFINITIONS (BITOO TO BITIS) 
| «477 100000 BITIS= 1 
| 478 040000 BIT14= 40000 
| 473 920000 BITi3= 20000 
480 10000 BITl2= {0000 
| = 4BL 00 BITii= 4000 
4B2 BITIO= 2000 
| 483 001000 BITO9= 1000 
| 424 000400 BITOB= 400 
uss 900200 BIT07= 200 
46 000100 BITOb= 100 
|: 4B7 , 000040 BITOS= 40 
488 BITO4= 20 
489 000010 BITO3= 10 
490 ooc004 BITO02e= 4 
49] oo0002 BITOl= 2 
492 000001 BITO0= | 
493 -EQUIV BITO9,81T9 
| ge EOuly BITOe BITS 
496 “Eau Bi toe: BITE 
497 “EQUIV BITOS;BITS 
ugg “EQUIV BITO4;BITH 
499 “EQUIV BITO3,BIT3 
500 EQUIV BITO2,BITe 
501 -EQUIV BITOI,BITI 
£0e “EQUIV BITOO;BITO 
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BASIC DEFINITIONS 





NO1 


bREVEGS 4 ” abet seedy TIME BUT AND OTHER ERRORS 


TPV 64 
PIROVEC=240 
$TN=0 
$SWR=0 


sRESERVED AND ILLEGAL INSTRUCTIONS 


TRACE TRAP 

;BREAKPOINT TRAP (BPT 

 INPUT/OUTPUT TRAP (101) #¥SCOPE ## 
POWER FAIL 

S EMULATOR TRAP (EMT) ##ERROR## 


AP” TRAP 
TT Y KEYBOARD VECTOR 
:TTY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 


B02 
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BASIC DEFINITIONS 


one 


SERENA SSNC ISOS aa UTE 
fat tatetetatetetetetetetetstetststetesteteietttetststets 
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BE EGE GEES cs # cE GESGH EE aR EEE CERERR ERROR AERAEEAEEIERS 


SAAS ITA TMT IA ARRAS SSDS ohh ATR Oe REE A RS SRE RSS 
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BF Aet tone 


BASIC DEFINI 
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BEE ee Seb oc EESGD GEE cH eB GHz us NePE CREE EERE SEE 
EEE ECE cs SESE S Oc SaPnE EE BUG aD CE cE HUE REEDS 


RO RE RIO EMMS BERANE MRE AER SNOE MAR RES Cr at ROR NRR MR 


ee mone -— ee _- 


EE PS Mae NI EL eS le REBAR Ie EC 


E02 
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3 
ae 
i 





ae = 
[at] -= 
+D+ 
tur ro 


— OT SC ES LE A GIN 


Bs IIIA PIATIS LS ATER SS SS RE 


pee se ee 


ee ee ae ee 


+ 


FOe2 
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BDDRAA.P1i BASIC DEFINITIO 
Tey ooco34 oos4e2 $;RAP 
785 000036 000346 - 340 
z OO0046 xa 
Faq FOOONe pae00 ; 10500 
789 goqeo9 9001 001242 Imp aeSTARTL sINITIAL STAR 
790 137 001256 TMP DRSPEC :T0 0 se ECT U ONT QUE ADDRESS AND VECTOR 
731 000210 000137 001366 THe JSTART *RESTAR 
235 posse Beene EOPHLT: HALT ; THIS 1S AN END OF PASS HALT 
794 : NOT AN ERROR 
795 ; PRESS CONTINUE +O" CONTINUE THE 
is Nee 
798 00eS2 990207 RTS PC 
739 901200 .=1200 
Ea sTHIS TABLE CONTAINS INITIAL REGISTER AND VECTOR ADDRESSES 
803 001200 167770 RCSR: CSR 
804 OCl202 167772 CSR+2 
80S 001204 167774 CSR+4 
os 1206 167773 CSR+3 
001210 000300 RCSR1: 300 
808 OOlele 000302 302 
B03 o01214 000304 304 . 
ell . THIS TABLE CONTAINS REGISTER AND VECTOR ADDRESSES OF THE DR11-C UNDER TEST / 
813 001216 167770 DRCSR: 167770 ADDRESS OF DR11-C STATUS REGISTER 
814 poiz29 167772 DROBUF: 167772 ADDRESS OF DR OUTPUT BUFFER REG. 
815 O0lec2 167774 DRISUF: 167774 ADDRESS OF OR INPUT BUFFER REG. 
Bib 001224 167773 ORBHIO: 167773 ‘HIGH BYTE OF OUTPUT BUFFER REG. 
218 001226 000300 DRVECA: 300 s INTERRUPT VECTOR OF UNIT UNDER TEST 
819 001230 O003Ce ORLVL: 302 
001232 000304 ORVECB: 304 s INTERRUPT VECTOR 
001234 00000 XORFLG: 0 
901236 000000 COUNT: 0 COUNT LOCATION 
001240 900240 PL: 240 ‘PRIORITY LEVEL 
001 001200 START1: MOV SSTKPTR Rb 
i ented 001272 JSR C Fist 


8 
bs b= bs be 


: C 
000004 FIRST: MOV ae4. -(R6) 
000004 MO #XORA, 284 

177060 #31, 06177060 
MO (Re5+. aa4 

177777 001234 MOV -1 SIXORFLG 

160000 MOV #164060.R 

SR re arse 


Sa 
e 


Bae Pm Hs ne oe be 


SR SR RESO Bes TN BESS 
= 


3k 
88 


a 















GOe 


FS aS ee calla 





840 001340 004737 004672 JSR PC, aNSPEC2 
841 001344 104400 TYPE 
842 001346 OO47I1e2 MESS] 
B43 1 RT PC 
4 1? XORA: C (RE)+, (R6)+ 
845 001354 012637 o00004 MOV (R6)+) ae4 
84% 001360 905037 001234 CLR aaXORFLG 
847 001364 000207 RTS 
g48 - INITIALIZE ADDRESS AND VECTORS 
849 001366 012700 001200 START: MOV #RCSR, RO :GET ADDRESS OF FIRST POSSIBLE DR11-C’'S 
850 901372 Ole70i O01215 MOV 8ORCSR, R1 . 
851 001376 012021 MOV (RO)+, (R1)+ ;LOAD INITIAL TEST ADDRESSES 
852 001400 Oiedel MOV (RO)+) (RL i+ 
853 001402 Oletel MOV (RO)+; (R1)+ 
854 O01404 Ole0e] MOV (RQ)+; (R1)+ 
85S 001406 Ole0el MOV (RO)+; (R1)+ 
856 001410 Oledel MOV (RO)+; (R1)+ 
857 OO14le Olecel _ MOV (RO)+ (R1)+ 
858 001414 012706 - 901200 RSTART: MOV #STKPTR, RE sSET UP STACK 
859 001420 012737 OO1446 004372 MOY SBEGIN, RETURN :SET SCOPE RETURN 
BO 901426 005037 004370 CLR aeSCOPEF 
B62 ;DOES RESET CLEAR REGISTER? 
863 001432 27 001000 177570 BIT #SW9, J#SR 
B64 O01440 001002 GIN 
BES O01442 004737 O04410 JSR PC. J#MOREID 
866 OO1446 013705 001216 BEGIN: MOV ORCSR, RS GET ADDRESS OF STATUS REGISTER 
B67 001452 O1 CO0240 176316 MOV #240, aPSW :SET PRIORITY LEVEL & 
B62 901460 012737 001516 O00004 MOV #1$, 084 :SET TIME OUT TRAP VECTOR 
869 O01466 012737 000010 004366 MOV #10; ICOUNT 
870 001474 010777 177777 177516 MOV #-1; SDROBUF sPRESET OUTPUT BUFFER 
®71 001502 O0000S RESET. “CLEAR DATA REGISTER 
872 001504 017700 177510 MOV JDROBUF , RO GET RESULT OF RESET 
873 001510 001403 BEG 2s 
874 001512 104000 HLT ;DATA REGISTER NOT CLEAR 
675 001514 O00401 BR 2 
876 001516 104000 1$: HLT sERROR! TIMED OUT WHEN REFERENCING DROBUF. 
877 001 012706 001200 25: MOV #STKPTR, SP ‘RESET STACK POINTER 
B78 001524 012737 O00006 op0004 MOV #6, a84 “RESTORE TIME OUT TRAP 
880 001 SCOPE 
881 1336 ieee 004000 b MOV #4000, ICOUNT 
G82 001542 012777 177777 177450 MOV #-1, JOROBUF ALL ONES TO REGISTER 
883 001550 017700 177444 MOV SOROBUF , RO 
884 001 022700 177777 CMP #-1,RO 
885 001560 001401 BEQ 4 
BB 001562 104000 HLT ;REG WILL NOT HOLD ONES 
B88 001564 900004 SCOPE 
001566 O12? 000010 004366 MOV #10, ICOUNT 
890 001574 O1 177777 177416 MOY #-1; IDROBUF 
891 001602 oOd00S RESET ;SET DATA TO ALL ONES 
& OO1604 005/77 177412 TST QORIBUF :SHOULD CLEAR REGISTER 
a 1619 1401 BEQ +4 
bo GOlele 104000 HLT ;REG FAILED TO CLEAR 


MAIN, 
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896 001614 
837 001616 
8398 001624 
8399 001632 
900 O01E36 
en3 001642 
001644 
903 
904 O01646 
90S 01650 
306 Ges 
307 1662 
308 O01666 
$03 001670 
910 
911 
Sle 001672 
913 001674 
914% 001702 
91S 001704 
$16 001706 
$17 00171e 
$18 001716 
ase 001720 
| 001722 
Se1 001724 
| See 001726 
S23 001730 
$24 001732 
925 001734 
S26 001736 
S27 001740 
$28 001742 
3293 
| 930 
931 
| «38 O01 744 
933 001746 
934 001754 
93S 001760 
| $36 001764 
937 001770 
938 001772 
9393 
340 001774 
S41 001776 
942 002004 
843 002010 
5944 002014 
945 O0e0e0 
an 002022 
| 34 
$48 002024 
949 002026 
950 002032 
95: 002036 


BASIC DE 


000004 
01e737 
012777 
017700 


aon 
853 


ss 


=} =4 oo 
ae de 


oOo 
33 


oe 


BR 
Ss 


me 


ike bles 


012704 
005077 


004090 004366 
OSeSeS 177366 
177362 


002076 
002076 
177156 


177342 


004366 


177244 


177214 


HO2 
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NITION 


S 
MOV #4000, ICOUNT 
MOV sSe5e6 ODROBUF 


MOV Bur 

CMP wsese5, Ag 

BEQ 

HLT DATA NOT=S2525 
"SCOPE 

MOV #125262, JOROBUF 

MOV JOROSUF , RO 

cH wlesese, RO 

HLT :DATA NOT=125252 


; TEST “oe OF DR11-C OUTPUT BUFFER REGISTER 


MOV #40, J#ICOUNT 


BUFTST: MOV RS, Re ;GET ADDRESS OF DRCSR 


TST (RO)+ ;RO= ADDRESS OF OUTPUT BUFFER REG. 
MOV #401,R3 *LOAD CONSTANT 
1S: MOV #256: , RY OUNT 
CLR - RO : PRESET EXPECTED RESULT 
CLR (R2) CLEAR REGISTER 
2s: ADD R3,RO 
ADD R3 (Re) 
CMP (Re), 
BEQ +4 
HLT 
DEC RY 
BNE 2g 
ASL R3 
BNE 1$ 


; TEST THAT BYTE REFERENCE 10 DROBUF AFFECT PROPER BYTE ONLY 


SCOPE 
TAG: MOV #-1, JOROBUF 

CLRB  aOROBUF :CLEAR LOW BYTE 

MOV JOROBUF , RO 

CMP #177400' RO 

BEQ +4 

HLT :BYTE LOW FAILED TO CLEAR 

SCOPE 

V #-1, JOROBUF 

CLRB § SDRBHIO ;CLEAR HIGH BYTE 

MOV BOROBUF , RO 

CMP #377, RO 

BEQ +4 

HLT sHIGH BYTE CLEAR FAILED 

SCOPE 

CLR 

MOV 


#2$,R4 
CLR SDROBUF 


we ee 8 ee ee ee - + ee 


102 
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DODRAA.Pil BASIC DEFINITIONS 
352 ggenve 195077 177156 CLR JORBHIO 
105277 177152 1S: INC JORBHIO s INCREMENT HIGH BYTE 
954 o020S2 105264 000001 INC 1(R4) 
955 002056 027714 177136 CMP JOROBUF , (R4) 
ae3 Bosnes ToNd00 - aah 
4} HL sHIGH BYTE HAS BAD DATA 
958 002066 105764 o00001 TSTB sR) 
959 002072 001402 BEQ 3$ 
969 002074 000764 BR 1$ 
961 902076 000000 23: : 
962 002100 o00004 33: SCOPE 
963 ;CONTROL STATUS REGISTER (DRCSR) TESTS. 
864 002192 005015 CLR (RS) 
SS 002104 011500 MOV (RS), RO 
966 002108 001401 BEQ +4 
$67 002110 104000 HLT 
| 968 OOell2 O1271S o00140 MOV #140, aRS s INTERRUPT ENABLE FOR A+B 
; 969 002118 011500 MOV aRS.RO 
870 002120 022700 900140 CMP #140, RO sENABLE BITS 
871 002124 001401 BEQ +4 
$72 002126 104000 
974 002130 COPE 
875 002132 ee 000010 o04366 MO #10, ICOUNT 
| 976 OO2140 Ole715 o0014e MOV #140, aRS SET INTERRUPT ENABLE FLOPS 
| 977 002144 900005 RESET !CLEAR THOSE FLOPS 
| 978 O0214%6 011500 MOV aRS,RO 
' §7§ OO021SO 001401 BEG +4 
380 po2152 104000 HLT ;RESET DID NOT CLEAR INTERRUPT ENABLE BITS 
| $82 002154 00004 SCOPE A 
| 983 006155 05e715 00001 BIS #1, aRS :SHOULD SET REQ A ALSO 
' 984 002162 021527 000201 CMP ARS, #201 
| 985 O02166 001401 BEG +4 
; 986 002170 104000 HLT 
387 00217e o0S015 CLR ORS 
' 989 002174 900004 SCOPE 
' 980 0021 ose715 oooo0e2 BIS #2, ORS :SHOULD SET REQ B 
22) I 100002 CMP ars, #100002 
001401 BEQ 44 
| 993 002210 104000 HLT 
oH D02212 O0S015 CLR ORs 
| 335 002214 O00004 SCOPE 
M0216 052737 000340 177776 BIS 8340, J8PSW 
| 998 O02224 052715 177777 BIS #-1, ORS 
/ 999 O02230 022715 100343 CMP #100343, (RS) 
' 12000 002234 001401 BEQ +4 
1001 00223 104000 T 
' too2 042715 000003 BIC #3, ORS 
_ 1003 poco 022715 000140 CMP #140, 3RS 
1004 001401 BEQ +4 
1005 002252 104000 HLT ;WRONG BITS SET 
_ 1007 02254 00004 SCOPE 
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BASIC DEFINITIONS 


012737 
052715 


00$715 


38g 
es 


8 

ir 
NN 
Bs pe 
uw 


bes ps 


BNGe & 


a 
£ 
3 


cS 


JO2 


#340, dePSi 
3, aS 


5 
, :RESET DID NOT CLEAR 
#4000, ICOUNT 
ARS 
aRS 
aR5 
+4 ; 
BIT O DID NOT SET BIT 7 
#2, ORS 
ars 
"+4 
BIT 1 DID NOT SET BIT 15 


; TEST EXTERNAL TRANSFERS - CABLE MUST BE CONNECTED 


000340 17777 MUV 
000003 BIS 
RESET 
TST 
BEQ 
HLT 
SCOPE 
004000 004366 MOV 
CLR 
INC 
TSTB 
BMI 
HLT 
SCOPE 
oo000e MOV 
TST 
BMI 
HLT 
176654 CLR 
176652 176646 MOV 
BEQ 
T 
SCOPE 
177777 | 17663¢ MOV 
176620 176624 MOV 
177777 =176616 CMP 
BEG 
HLT 
SCOPE 
004365 CLR 
CLR 
176576 TST6: MOV 
176574 176570 MOV 
176564 CMP 
BEQ 
HLT 
INC 
BEQ 
176550 a 
TST9: SCOPE 
OC9005 004366 MOV 
177777 176530 
176524 176524 MOV 
176520 MOV 
CMP 
BEQ 
HLT 


JDROBUF 
ODRIBUF , SDROBUF ;TEST TRANSFER OF ZERO 
; ;NOT EQUAL TO ZERO 


$-1, JDROBUF 
QORIBUF. ADROBUF ;MOV ALL ONES 
1, , JOROBUF 
;NOT ALL ONES 
ICOUNT 
RO,@OROBLE ;TEST ALL NUMBERS 
RO, OOROBUF 
‘ sERROR - CHECK RO FOR GOOD 
RO :DROBUF FOR BAD 
TST9 
JOROBUF 
TST6 


ICOUNT 
; TEST DATA | FROM aLACK BOX (NOT CONNECTED) 


OBUF 
SOROBUF MDRIBUF ;STATIC LINES EQUAL ONES 
JORIBUF , RO *DATA REGISTER TO RO 


;REG O SHOULD = ALL ONES 





BESRRIER ESSE URR COR SINS TANSSE OEE B: 


ne He 


De he ae pe Ge bee Fe ee en Be Fe be Be ae ae fe ae ae Be fas 2 Bans Pe Hs Pe Fae Fe hs fe fn Fe Bo Bae Pe fen fens fe fs Hae fe fw Pe me ne Ho ne Hann fo Hw Pas Pane ue fees Pes Fe 
wetoeosotasaeeeeas OOOO CODOO 
BSVRREGDHS 


2 sb bn a 
WONTUW CWO 


KOe 
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;READY BIT Ip IN A ONE STATE 
SCOPE 


002512 o00004 
002514 Ole71S o00003 MOV #3 aRS ;CSRO AND CSRI 
O02¢20 011500 MOV (R5),R 
002522 022700 100203 CMP 1190803, RO 
od25¢6 901401 BE 
104000 
;CAN WE RAISE INTERUPT “A” 
902532 000004 SCOPE 
052737 OO00340 177776 BIS #340, a8PSH sLOCK OUT INTERRUPTS 
002542 012706 001200 MOV #STKPTR, RE 
ope646 Ol 70 176452 MOV aTsT4 SORVECA  ; INTERRUPT RETURN POINTER 
sof : 101 MOV #101, ORS INTERRUPT ENABLE AND CSRO 
002560 005037 1 CLR 
002564 o00240 NOP 
002555 104000 HLT :NO “A” INTERRUPT 
00s015 TST4: CLR ORS 
002572 013777 001230 176426 MOV DRLVL,JDRVECA ;MOVE .+2 TO “A” INTERRUPT VECTOR 
sRAISE INTERRUPT “B” 
002600 oo0004 SCOPE 
002602 012706 001200 MOV #STKPTR, R6 
002606 052737 000340 177776 BIS #340, a8PSW 
002614 012777 OO02640 176410 MOV 8TSTS, JORVECB 
O1e715 o0094e2 MOV #42, aRS IE AND CSRI 
oie? 37 000377 177776 BIC #377, J¥PSW 
104000 :NO B INTERRUPT 


HLT 

TSTS: CLR dRS 

; TEST FOR INTERRUPT FROM DEVICE 
MOV PL, JORLVL 


013777 001240 176360 

o4 0 177776 BIC #340, a8PSW sPROCESSOR LEVEL ZERO 

pisos 002710 176342 MOV tInti QORVECA 

012706 001200 MOV #STKPTR, Rb :STACK POINTER 
002670 042777 OO0100 17632 BIC #100, JDRCSR ‘CLEAR INTERRUPT ENABLE 
O0e67% 050777 000101 176312 BIS #101; 3ORCSR :SET INTERRUPT ENABLE-AND CSRO 
002706 104000 HLT ;NO DEVICE INTERRUPT OCCURED 
002710 o00004 TINT1: SCOPE 

;TEST FOR INTERRUPT FROM THE DEVICE 

002712 042737 OO0340 177776 BIC #340, J8PSW 
002720 052737 OO0040 177776 BIS ;SET TO PRIORITY LEVEL 1 
002726 012777 002760 176272 MOV #TINT2, JDRVECA j INTERRUPT VECTOR ADDRESS 
002734 012706 001200 MOV #STKPTR, Rb UP STACK POINTER 
002740 042777 OO00100 176250 BIC a0. BDRCSR Seen INTERRUPT NABLE 
002746 000101 176242 BIS #101; ORCSR ERRUPT ENABLE-AND CSRO 
002754 o00240 NOP 
002756 104000 HLT NO DEVICE INTERRUPT OCCURED 
002760 c00004 TINT2: SCOPE 
002762 042737 000340 177776 BIC #340, a#PSW 
002770 052737 O00100 177776 BIS #100; duPSW SET TO PRIORITY LEVEL 2 
























[ LO2 
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AA.P1I1 BASIC DEFINITIONS 
1120 002776 012777 003030 176222 MOV #TINT3,QDRVECA ; INTERRUPT VECTOR ADDRESS 
Lek o03004 12706 001200 MOV #STKPTR, Rb :SET UP STAC POIN TER 
11 10 000100 176200 BIC #100, TRACER : CLEAR IRTERRUPT_E NABLE 
1183 903016 or 000101 176172 BI 8101; aDRCSR :SET INTERRUPT ENABLE-AND CSRO 
112s 003026 104000 HLT :NO DEVICE INTERRUPT OCCURED 
1127 003030 000004 TINT3: SCOPE 
1128 TEST FOR INTERRUPT FROM THE DEVICE 
1129 003032 042737 000340 177776 BIC #340, a8 PSW 
1130 003040 052737 000140 177776 BIS 140’ d#PSW ;SET TO PRIORITY LEVEL 3 
1131 O0304% 012777 003100 176152 MOV sTINt’ QDRVECA ;INTERRUPT VECTOR ADDRESS 
1132 003054 012706 001200 MOV #STKPTR, R6 ;SET UP STACK POINTER 
1133 003060 042777 000100 176130 BIC #100, PaDACER “CLEAR INTERRUPT ENABLE 
1134 052777 OO0101 176122 BIS #101; JDRCSR :SET INTERRUPT ENABLE-AND CSRO 
tia OTe ined ACT NO DEVICE INTERRUPT OCCURED 
Ly tte 000004 TINT4: SCOPE 
1139 ; TEST FOR INTERRUPT FROM DEVICE 
1140 003102 042737 000340 177776 BIC #340, d8PSW 
1141 003110 052737 177776 BIS #200; a8PSW sRAISE PROCESSOR PRIORITY TO LEVEL 4 
1142 003116 012777 (73160 176102 MOV #TINTS, DORVECA ;IN CASE OF INTERRUPT 
1143 003124 012706 001200 MOV #STKPTR, RE *SET STACK POINTER 
| 1144 003130 042777 OO0100 176060 BIC #100, aDRCSR *CLEAR INTERRUPT ENABLE 
114S 003136 052777 000101 176052 BIS #101; JDRCSR :SET INTERRUPT ENABLE AND CSRO 
| ive 003144 Ooge4D NOP {CET INTERRUPT OCCUR 
; 2197 003146 042777 000100 176042 BIC #100, JDRCSR 
1148 003154 O00e40 NOP 
. 1199 003156 104000 HLT ;NO DEVICE INTERRUPT OCCURED 
1150 003160 O00004 TINTS: SCOPE 
| 1152 TEST FOR NO INTERRUPT FROM DEVICE (HIGHEST PROCESSOR PRIORITY) 
1153 003162 000340 177776 BIS #PSW *RAISE PROCESSOR PRIORITY TO HIGHEST LEVEL 
; 1154 003170 012777 003230 176030 MOV #TINtB. AORVE @DRVECA ;IN CASE OF INTERRUPT 
| 1155 003176 012706 001200 MOV #STKPTR, R6 :SET STACK POINTER 
1156 003202 042777 000100 176006 BIC #100, JDRCSR *CLEAR INTERRUPT ENABLE 
1157 io 052777 000101 176000 BIS #101; DRCSR 
1158 003216 O00240 NOP 
1159 003220 042777 000100 175770 BIC #100, JORCSR 
1160 000401 BR +4 ;WITH NO INTERRUPT, BRANCH OVER HALT 
1161 003230 104000 TINT6: HLT INTERRUPT OCCURED’ 
| 1162 000004 SCOPE 
| 1164 TEST FOR NO INTERRUPT FROM DEVICE 
: 4165 003234 042737 000340 177 #340, 
i 1166 O03242 052737 000240 177776 BIS #240. a ;RAISE PROCESSOR PRIORITY TO LEVEL S 
| 1167 D03250 01 175 MOV TINT? SRVECA sIN C SE OF INTERRUPT 
: 168 003256 012705 001 MOV #STKPTR SET S 
| 1169 003262 042777 000100 175726 BIC #100, ORCSR *CLEAR INTERRUPT ENABLE 
| 1170 003270 000101 175720 BIS #101, JDRCSR *SET INTERRUPT ENABLE AND CSRO 
| 4172 003300 o4 000100 175710 BIC  #100,9DRCSR —; DON’ T LEAVE IT SET 
4173 «00 000401 BR +4 WITH NO INTERRUPT, BRANCH OVER HALT 
| 1174 003310 104000 TINT7: HLT INTERRUPT OCCURED’ 
| 1178 003312 O00004 





PS Pio bp» pop a ge 


BBSRRLSC LESS IRR ESBS Sao! 


BASIC DEFINITIONS 


SE 


175624 





; TEST FOR NO INTER pePcu FROM DEVICE 


TINTS: 


MOV 


#100; JORCSR 


+4 


DRLVL , dDRVECA 
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| 
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ee ee eC ee eS - 





ate ye aes yey TO LEVEL 6 
OF INTERRUPT 


4 
;SET S IN - 
;CLEAR INTERRUPT ENABLE 
:SET aA a! ENABLE AND CSRO 
DON’T LEAVE IT SET 


;WITH NO INTERRUPT, BRANCH OVER HALT 
INTERRUPT OCCURED’ 


;FOR FALSE INTERRUPT 


1 
1 
1 
1 
1 
1 
i 
i 003402 0 CLR JORVECA 
i -END OF TEST ROUTINE 
1 003406 010237 003750 END: MOV Re, SAVR2 
1 003412 010337 003752 MOV R3, SAVR 
1 003416 Ole702 o000S2 MOV #’ Re 
1 003422 012703 MOV #50’ ,R3 
1 003426 O00005 2s: RESET 
1 003430 005303 DEC R3 
1200 32 001375 BNE 2s 
1201 34 032737 000100 177570 BIT #SWO6, SWR 
1202 oOO3442 001402 BEQ 1 
1203 OO3444 004737 oD02S0 JSR PC, EOPHLT 
1204 603450 104400 9000002 1S: TYPE 
1205 003454 013702 003750 MOV SAVR2, Re 
1206 003460 013703 003752 MOV SAVRS,R3 
1207 003464 032737 002000 177570 BIT #SW10;a48SR ;LOOP ON SELECTED DR? 
1208 003472 001402 BEQ y 
1209 003474 000137 001414 IMP J#RSTART sREPEAT TEST ON DRIIC SELECTED 
1210 -STEP TO NEXT DRII-C 
1211 003500 012700 o00010 4g: MOV 10,RO ;STEPPING CONSTANT 
1212 003504 012737 003554 coD004 MOV 85S, 084 *SET TIME OUT TRAP 
1213 003512 160005 SUB RO,RS ;STEP TO NEXT DR11-C ADDRESS 
1214 003514 005715 TST (RS) WILL TIME OUT IF NOT AVAILABLE 
1215 003516 012705 oo1216 MOV #ORCSR, RS SET TABLE POINTER 
1216 003522 160025 Sus RO, (RS3+ 
1217 003524 160025 Sus RO, (RS)+ 
1218 003526 160025 SUB RO, (RS)+ 
| 4219 003530 160025 SUB RO, (RS)+ 
| 220 003532 Ob0025 ADD RO, (RS)+ 
| 221 003534 ADD RO, (RS)+ 
( 222 003536 060025 ADD RO, (RS)+ 
| 1223 o03540 900137 001414 JMP JHRSTART sRESTART TEST USING NEXT DR11-C 
! teed 1 177570 BIT #SH9, d4SR 
1S5P Wied pOsod3 001304 S$: OV #’/, a$TPB ;TYPE °/? 
lee? 003562 105777 001276 6S: STB aSTPS 
| | Wieeaai ised 001272 CLR a$TPB 
' 1230 003574 105777 00126 7$: TSTB = aSTPS 
| 1231 bose00 ! BPL 
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3700 o00042 
Me 
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001366 
177570 


017400 
017402 


004747 
017400 


0047Se 
017402 
CO47S2 
O0i216 
poieSe 

le26 


004747 
177570 


020000 


004230 





9S: MOV ary2, RO 
BEQ NDI 
LOGIC: JSR PC, (RO) 
NOP 
NOP 
NOP 
NOP 
ENDI:  JMP JaSTART 
sENTERED WITH SYSTEM TRAP CALL(HLT) , 
sPRIN NT OUT THE ERROR PC_AND STATUS RF REGISTER 
“HLT: = BIT SR, #SW13 T FOR. INHIBIT PRINT OUT 
BEG 4 ‘BRANCH 0 P 


SAVRe: 
SAVR3: 
SAVRY: 
PRTAB: 


WAIT1: 


MOV (6)+, SAVPC 

MOV (6)+,SAVCC 

C (6) *=(6) 
RLF 

MOV SAveC ~(SP) 


-BYTE 6 
, 0 


MSPACE 
MOV SaVCC, -( SP) 
-BYTE 6 
0 


MSPACE 
MOV ORCSR, -(SP) 


.BYTE 6 

BYTE 

TYPE MSPACE 
v ORVECA, -(SP) 

TYPOS 

BYTE 

"BYTE 

TYPE MCRLF 

TST SR 

BPL +4 

HALT 

RTI 

0 

0 

0 

CLR BINC 


MOV 7’ SEVEN 
MOV #1, DECML 
TSTB 3s ST PS 
BPL WAITI 

st Re 

BMI MINUS 


j INHIBIT TON TO MAIN STREAM 
C OF FAILING ROUTINE 

ite OF ERROR CONDITION 

:REPOSITION THE STACK 


;SAVE SAVPC FOR TYPEOQUT 
:60 A ge 3 ASCII 
TYPE 6 DIGITS 
;SUPPRESS LEADING ZEROS 


5306 VCC FOR TYPEQUT 
oretiee ASCII 

TYPE 6D 

; SUPPRESS TPEABING ZEROS 


; SAVE ORCSR FOR TYPEOUT 
-OCTAL ASCII 

TYPE 6 DIGI TS 

;SUPPRESS LEADING ZEROS 


;SAVE DRVECA FOR TYPEOUT 
G0 TYPE--OCTAL ASCII 
TYPE & DIGITS 

SUPPRESS LEADING ZEROS 


;HALT ON ERROR set 
RETURN TO MAIN STREAM 


;GET LIST ADDRESS 


;NEG SIGN PRINT 1 





ge ? 2 
ma 2 gs & : 
: ae a & S. z > ty & 
> ile Fags ee ty 
€ arptwe pees Gb = z &§ 
z Sa iee Ss ma 78 & % a6 
a Beer eet g22 ge 5 Lr : 
g EMeeS dt eh G8 i 
he 
a 
2 eer aa & , 
Sees 2 Sek OG 5 3 ms 
Gage SESHDDSapODD EROS BygBe See <3 
Stes Soaueur cased sono stand aegeTs _ 
% 
g PuPSBSSROSBESSSIIRRSSHE Rare suse PRE ccocanconno GbE 
us “ee By Rad ee i. 0 
- Se 5 8 ine £ goscoe: § 
ela See ee : or 5 e ae a 
“ 88 Ss 88 : : 
88 8 88 


Be oe eee y . Bf 
sw SSS any Sena as rR 
i; GRRRBBMRREASEEREERSEEEGEEEEIER EEE Eee eee : 





at Ree Ree Ree Kee Kee Rete Cee hee Re Dot hot ot ee he hee ko ro Pe re bey 





r 


A ST Re a ne ee ee - 


ITERATION LOOP FOR EACH TEST 4000 TIMES 


Seren 
BRa8S 


te Ream Kees Bate De Kee Kee Room Doon Kot Doe Koen Kem Kee Com Kemet Kee Kom Doe Ct Dee Kon Doe Doe Doe oe Doe | 


: BERT RRC CRC R MMMM MMA Teme 


oe 


a 
oy 
ay 
Sag 2 
=ee 
Bosak 





ne a a ee ee ee 


a nn a ee ee es 


-MAIN. MACYI1 27(732)_ 15-0CT-76 15:53 PAGE 29 
DODRAA.P11 BASIC DEFINITIONS 


Lae Beara Bi5333 eae eats HOV 331 38177060 
34% 00M 1 3 000004 MOV (R6S+, 84 


l 322 R654, 
1347 O04 004000 177570 1S: BIT 1 :NO - TEST FOR ITERATION 
3 BNE SCOPEA ‘INHIBIT ITERATION 


29 
2 
3 
3 
3 


1 O04: 

1350 004% 901403 SEQ OPE EXIT = DONE 

1351 Gov ae Sose37 004370 INC SCOPEF INCREMENT COUNT 

1 AOY BR SCOPEB ‘LOOP SOME MORE 

1353 904354 005037 004370 SCOPEG: CLR SCOPEF CLEAR COUNT 

1354 360 011637 004372 SCOPEA: MOV ORG, RETURN ‘SAVE SCOPE RETURN POINTER 
1355 364 erie RTI :RETURN INLINE-NEXT TEST 
1356 O04 004000 ICOUNT: 4000 

1357 004 p00000 SCOPEF: 0 sCOUNT LOCATION FOR ITERATION LOOP 
1358 O0437e 001446 RETURN: BEGIN “ADDRESS OF LAST TEST 
1359 004374 000137 ocd200 JNP 200 

1361 OO4400 O22626 XOR: CMP (R6)+, (R6)+ 

1362 OO4402 Ole637 900004 MOV (R6)+'ae4 

1363 OO4408 000721 | 

1364 -PRINT DEVICE ADDRESS AND VECTOR 

FD oer, Bae COCNSO NOREIO: Bl 

13? pes lons7e 216 Ar JSORCSR, R2 

1369 ay phaes pease JSR R7, PRTAB 

1370 OOWN34 012777 000240 ocDo4e4 MOV 8240, aSTPB 

1371 Oow4e 105777 OODYI6 TSTB = @STPS 

1376 ra bt 1226 SOY Ss BRVECA. Re 

1374 pha70s ria JSR R7, PRTAB 

1375 powieo 01 000215 o00400 MOV #215 aSTPe 

1376 1 000372 TSTB. = aS TPS 

1358 DEMHT BLeeo> OoUel2 000364 fo s«a212. aS TPB 

13793 oovete 106777 000356 TSTB 5e TPS 

1380 1 BPL 4 

1381 Dove 10 005077 0003Se2 CLR asTPB 

1383 boseeo toogrs OO ne ae 

1384 po4522 iphsar Bre R? BACK TO PRINT 

1388 % ENTER HERE FOR POWER FAIL 

1388 OO4S24 O10046 PFAIL: MOV RO,-(6) :SAVE REGISTER OR STACK 
1389 004526 010146 MOV Rl} -(6) ‘WHEN POWERING DOWN 
1390 O10e46 MOV Re, -(6) 

1391 10346 MOV R3,-(6) 

1392 D144 MOV Ra, -(6) 

i394 i Soue HOY aT=CBS 

i3ee steeg ppased MOV Fe aeSAVRE ;STORE STACK POSITION 
13% 01 co4s62 00024 MOV SRESTAR, 0824 

1397 HALT sHALT ON POWER DOWN NORMAL 
1398 SAVRE: 0 :STACK IS SAVED HERE 
1399 004562 013706 o04S60 RESTAR: MOV SAVR6, Rb RESTORE REGISTER OFF STACK 


DO3 
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DDDRAA.P1] BASIC DEFINITIONS 
i poe pieSx 000024 an (6), 84 ;WHEN POWERING UP 
1402 aeaeog bi SP8e MOV (6)4°R4 
1403 612603 MOV (6)+°R3 
| 1404 OO4€00 O1 MOV (6) 4, Re 
1405 bebo MOV (6)+;RI 
1406 OO4604 91 MOV (6)+°RO 
1407 004606 600137 001414 IMP aeRSTART 
1403 sENTER HERE FOR UNIQUE SELECTION OF DRIIC 
1411 004612 o00000 SPECO: HALT :PLACE ADDRESS OF DRI1-C CONTROL STATUS 
1412 004614 013701 177570 MOV aeSR 
1413 bowed 004642 JSR PC, JRSPECI 
1414 HALT 
| 14iS 004626 013701 177579 MOV  aaSR, RI 
| 416 O0%632 004737 004672 JSR PC. JRSPEC2 
| 1412 004636 000137 001366 JMP aeSTART 
| 1419 OO%642 012700 001200 SPECI: MOV #RCSR, RO ;SET TABLE ADDRESS 
| 1420 00464 010120 MOV = RL, (ROD+ ;LOAD INTO TABLE STARTING AT RCSR 
| St Be ee ome mY Allows = Etep Lavage OTE 
| J4e3 Sates prouee ooo0o2 ADD #2, R1 i980 1O'ROORESE OF DRINBUF 
| 424% OO4662 010120 MOV RI’ (RO)+ sLOAD INTO TABLE 
1425 004664 005301 DEC RI FORM ADDRESS OF DROUTBUF+1 
| 1425 OO4666 010120 MOV R1, (RO)+ ‘LOAD INTO TABLE 
ie? 004670 000207 RTS PC 
1423 004672 012700 001210 SPEC2: MOV #RCSR1,RO 
' 1430 004676 010120 MOV R1. (ROS+ ;LOAD INTO TABLE 
| F432 ooN70g Goel TST (RL )+ 
1432 010120 MOV Rt (RO) : 
1433 004704 005721 TST (R1)+ 
1434 004706 010120 MOV Rl, (RO)+ 
, 1935 004710 900207 RTS PC’ 
1436 
1436 
| 
1439 712 15 125 MESSI: .ASCIZ <15><12>"YOU ARE ON AN XOR TESTER’<15><12> 
1440 obs ager Peat aes 
1441 004726 O4O44HO Oe0116 047530 
1442 004734 b20122 042524 052123 
1443 004742 051105 O0S0IS 000 
1444 004747 0i§ 000012 MCRLF: .ASCIZ <15)<1l2e> 
1446 004752 000040 MSPACE: .ASCIZ / / 
a4 33 SHSLSKSESEAEFSAASKALAAESASLALRARAAALALAASAARERAALALAARLHARARRERE 
1309 .SBTTL TYPE ROUTINE 
1451 TINE TO TYPE ASCIZ MESSAGE MESSAGE Must TER TERMINATE WITH A CO BYTE. 
1452 OUTINE WILL INSERT A NUMBER OF NULL CHARAC CTERS AFTER A LINE FEED. 
1453 ; no El: CONTPINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
1454 #NOTEe: SFILLS CONTAINS THE NUMBER OF OPER CHARACTERS REQUIRED. 
1455 : #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
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DODRAA.P11 TYPE ROUTINE 
1456 ; 
1457 ;#CALL: . 
1458 :#1) USING A TRAP INSTRUCTION 
‘t  TYPE —, MESROR ;MESADR IS FIRST ACDRESS OF AN ASCIZ STRING 
;# TYPE 
;# MESADR 
oe 
:#2) USING A JSR. INSTRUCTION 
% MOV S,-(SP) ;PUSH PROCESSOR STATUS WORD ON THE STACK 
+ JSR PC, STYPE ;CALL_TYPE ROUTI 
i MESADDR ;FIRST ADRESS OF MESSAGE 
105737 005073 STYPE: STB  STPFLG ;1S THERE A TERMINAL? 
190002 BPL_sdIS IF YES 
90000 HALT SALT HERE IF NO TERMINAL 
BR 3$ LEAVE 
010046 1s MOV RO, -( SP) SAVE RO 
617609 opo00e MOV ae tse) RO. ;GET $506 ASCIZ STRING 
11 2s MOVB = (RO) +,“ §7) ;PUSH CHARACTER YPED ONTO STACK 
001005 BNE 4S ;BR IF IT ISN'T THE TERMINATOR 
005726 TST (SP )+ :IF TERMINATOR POP IT OFF THE STACK 
012600 MOV (SP) +, RO ;RESTORE RO 
Obe7 1 oo0002 38: ADD, (SP) ADJUST RETURN PC 
004737 005046 4§: JSR  PC,7§ ;G0 TYPE THIS CHARACTER 
3726 005072 SS: CMPB SFILLC, (SP)+ 31S IT TIME FOR FILLER CHARS. ? 
1364 BNE 2 ;1F NO GO GET NEXT CHAR 
013746. 005070 MOV - SNULL, -( SP) ;GET ® OF fig Mal “NEEDED 
) 3AND THE NULL 
105366 000001 6§: DECB 1(SP) ;D0ES A NULL NEED TO BE TYPED? 
o0e770 BLT  5$ BR JF NO--Gu POP THE NULL OFF OF STACK 
737 O0SO4E JSR PC, 78 :G0 TYPE A 
000772 BR § ; LOOP 
10577? oooo1e 7s: Tia TPS ;WAIT UNTIL PRINTER IS READY 
ii6b7? oo0002 C0004 MOVE (SP), aSTPB ;LOAD CHAR TO BE TYPED INTO DATA REG. 
177564 STPS: 177564 TTY PRINTER STATUS REG. ADDRESS 
177566 spp: 177566 {TTY PRINTER BUFFER REG 


> ADDRESS 
:CONTA CHARACTER FOR FILLS 
O12 EVIE 2 i aT FIL (CARS BFTER FER A LINE FEED 
att e: “Bite 2 TTP ERINAL LABLE™ PER A artis) be vEs) 
STP: BYTE Os avarennenvevennenneder eee, ARILARLE FLA 





tt BINARY TO OCTAL (ASCII) AND TYPE 
j #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
" MOV NUM, -(SP) NUMBER TO BE TYPED 

TYPOS :CALL FOR TYPEOUT 

-BYTE ON :Nzl TO : FOR NUMBER OF DIGITS TO TYPE 


-BYTE MM Nel OR 
;L=TYPE LEADING ZEROS 
i D=SUPPRESS LEADING ZEROS 


1503 
i504 
oe 
1807 
1S08 
1509 
l 
i 


ee ee 
© 


ww 
-O 


e+e 


| 
| 
| 
| 
| 
i 


ae rae ee ee 
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Pll BINARY TC OCTAL (ASCII) AND TYP 
112 :# 
1513 :¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
1514 :#STYPOS OR §TYPOC 
1515 :*CALL: 
1516 2% MOV NUM, -(SP) ;NUMBER TO BE TYPED 
1512 i TYPON :CALL FOR TYPEOUT 
1519 :#$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1520 ;*CALL: 
1521 : MOV NUM, -(SP) “NUMBER TO BE TYPED 
1582 :# TYPOC -CALL FOR TYPEOUT 
1524 005074 017646 o00000 STYPOS: MOV 3(SP),-(SP) sPICKUP THE MODE 
1525 005100 116637 000001 005317 1(5P), SOF ILL ‘LOAD ZERO FILL SWITCH 
1526 005105 112637 00531 MOVB = (SP)+' SOMODE+1 *NUMBER OF DIGITS TO TYPE 
1527 O00Sl1le 062716 82, (SP) ‘ADJUST RETURN ADDRESS 
1528 005116 O00406 BR STYPON 
1529 005120 112737 OO00001 005317 STYPOC: MOVB &1,S$OFILL :SET THE ZERO FILL SWITCH 
1530 005126 112737 O00006 005321 OV8 #6, S0MODE+1 :SET FOR SIX(6) DIGITS 
1531 005134 112737 O0000S OOS31& STYPON: MOVB 85, SOCNT :SET THE ITERATION COUNT 
1532 O0Si42 010346 MOV R3,-(SP) SAVE R3 
1533 O0S144 O10446 MOV RY) -(SP) :SAVE RY 
1534 005146 O10S46 MOV RS; -(5P) SAVE RS 
1535 005150 113704 005321 MOVB §§ $OMODE+1,R4 “GET THE NUMBER OF DIGITS TO TYPE 
1536 005154 005404 NEG RY 
1537 005156 062704 o00005 ADD 86,R4 ;SUBTRACT IT FOR MAX. ALLOWED 
1538 005162 110437 005320 MOVB = R4. SOMODE } IT FOR 
1539 OO0SI66 113704 005317 MOVE SOFILL,RY *GET THE ZERO FILL SWITCH 
1540 905172 016605 000012 MOV 12<SP), *PICKUP THE INPUT NUMBER 
1541 005176 005003 CLR R3 : HE OU 
1542 005200 006105 1S: ROL RS ‘ROTATE MSB INTO “C™ 
iS43 00S202 bO0404 BR 3$ :G0 DO MSB 
1544 005204 1 2s: ROL RS :FORM THIS DIGIT 
1545 005206 006105 - ROL RS 
1546 005210 006105 ROL RS 
1547 O0S2i2 010503 MOV R5,R3 
1548 005214 006103 3S: ROL R3 GET 
1549 005216 105337 005320 DECB  SOMODE TYPE wiIS 
1550 100016 BPL -BR I 
1551 00S2e4 177770 BIC #177770,83 GET 
1552 Go5230 1002 BNE : TEST 
1553 TST : SUPPRESS 
1554 005234 001403 BEQ c$ -BR 
1555 005236 005204 4g: INC : DON 
1556 005240 052703 O00060 BIS #’0,R3 * MAK 
1557 005244 052703 cs: BIS 8’ |R3 * MAKE 
1558 doses0 110337 14 MOVB 3,8 : SAVE 
1 104400 14 | TYPE $ GO TYPE 
1560 goseb0 05337 005316 73: DECB = $OCNT + COUNT 
1561 7 BGT 3 :BR I 
1562 005266 BLT 6$ *BR I 
1563 005204 INC RY : INSURE 
1564 poo? BR 2 :GO bg 
1565 1 6S: MOV (SP)+,RS * RESTORE 
1566 005276 012604 MOV (SP)+'R4 ‘RESTORE RY 
1567 005300 012603 (SP)+/R2 “RESTORE R3 
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0O0S302 016666 000002 cO00004 


oos444 
000340 


seit 
ee 
Solis 


ee Be 
a5 


. 
. 
: 


1601 O0S41e 


005322 
00S4Se2 


Sone 


SESheeRess 
ne 
ee 


B 
u 


047520 


Ce ee oe ee 
R 


sr 
Pepripleal cal ealsalesl sale al og 
Ds 0=2 02 02 b 2 b= ban pan Be Be 

K-OWONTUSWweoO 


SEER 


000024 
000526 


ooc0e4 


000024 
0000er 


042527 


MUV 2(SP),4(SP) ;SET THE STACK FOR RETURNING 
toy (SP)+, (SP) 
RTI 5 RG TUR URN 
8$: bas 0 ; STORAGE SSTON FOr TYPE ROUTINE 
socnt: ‘EVE 8 De Rae aT Contes 
SOFILL: .BYTE 0 ; ZERO FILL SWITCH 
SOMODE: 0 UMBER OF DIGITS TO TYPE 


DHEA HEHEHE EES EE 
-SBTTL POWER DOWN AND UP ROUTINES 
ta af at ROUTINE 


$PWRD eSILLUP SEPURVEC ;SET FOR FAST UP 

* NOV QPUR :PRIO:7 

MOV fest *PUSH RO ON STACK 

MOV Ri’ =(8P} :PUSH R1 ON STACK 

MOV Re, -(5P) PUSH R2 ON STACK 

MOV R3,-(S5P) PUSH R3 ON STAC 

MOV RY, -(SP) sPUSH R4 ON STACK 

MOV RS, -(5P) :PUSH RS ON STACK 

MOV SP’ SSAVRE : SAVE 

HOV. #SPWRUP , J#PWRVEC SET UP VECTOR 
2 ;HANG UP 


;POWER UP ROUTINE 


SPWRUP: MOV SSAVR6, SP GET SP 
CLR SSAVRE ‘WAIT LOOP FOR THE TTY 
1S: INC SSAVRE WAIT FOR THE INC 
BNE 1$ OF WORD 
MOV (SP)+,RS *POP STACK INTO RS 
MOV (5P)+)R4 *POP STACK INTO RY 
MOV (SP)+'R2 *POP STACK 
MOV (SP)+'R2 *POP STACK INTO Re 
MOV (SP)+°RI :POP STACK INTO «J 
MOV (SP)+’RO :POP STACK INTO RO 
MOV ry DSPWRVEC ‘SET UP THE POWER DOWN VECTOR 
MOV #340 NOURVECHS *PRIO:7 
TYPE "SPOWER “POWER FAIL MESSAGE 
SILLUP: HALT ;THE POWER UP SEQUENCE WAS STARTED 
BR 2 : BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRG: 0 ‘PUT THE SP HERE 


SPOWER: .ASCIZ <15)<12>"POWER™ 


- EVEN 
5 HERE AE AE AE EAE AE SE EE EE EEE ETE EE RE SEE EEE EEE HEE TEE EE EER ERE 
-SBTTL TRAP DECODER 


;¥THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” Mi Mag AP 

; #AND Hee oes fp INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:#0F T SIRED ROUTINE. a USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 








a eee 
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1624 o0S462 010046 STRAP: MUV RO, -(SP) ;SAVE_RO 
1625 005464 016600 ocop00e2 MOV e (SP) ,RO -GET TRAP ADDRESS 

1626 005470 005740 TST (RO) ‘BACKUP BY 

1627 005472 111000 MOVB :GET RIGHT Ye OF TRAP 

1628 905%74 016000 oossoz MOV STREADTRO) .RO INDEX TO TABLE 

1628 005500 900200 RTS RO GO TO ROUTINE 

1631 

1638 .SBTTL TRAP TABLE 

1634 ;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

1635 xB THE “TRAP” INSTRUCTION 

1837 ; ROUTINE 

1638 5 

1639 oosso2 STRPAD: 

i640 005502 004756 $TYPE ; CALL=TYPE TRAP+0( 104400) TTY TYPEOUT ROUTINE 

1641 005504 005120 STYPOC ;CALL=TYPOC TRAP+2(194402) TYPE OCTAL NUMBER (WITH LEADING 
1642 005506 905074 STYPOS : CALL=TYPOS TRAP+4(104404) TYPE OCTAL NUMBER (NO LEADING ZE 
1643 005510 005134 STYPON : CALL=TYPON TRAP+6( 104408) TYPE OCTAL NUMBER (AS PER LAST C 
bus 017400 2017400 

1647 017400 9o00c0 SAVPC: .WORD O 

1649 017402 coooce SAVCC: .WORD O 


1651 oo0c01 - END 


em ee ee ~ ee ee oe ee oe 
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DODRAA.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 
ASCNT 004236 1281% 1305* 1312# 1316* 13278 
BEGIN 1946 53 64  Bb&e 1358 < 
BINCT 234 1278* 1297 1300* 1301 1304* 13268 
BIT. = 000001 SOe8 
8IT00 = 000001 49e8 = 502 
8ITOi = 000002 4u9ie = S01 
BITO2 = 000004 490s 500 
BIT03 = 000010 yee 8-499 
BITOY = 488s 
BITOS = 487% 497 
BITO& = 000100 yee 496 
BIT07 = 000200 ugse = - 495 
BITOB = OOO400 uede = 494 
BIT] = So000e ie 
BITiO = 002000 4828 
| grt = 904000 ugie 
BITle = 010000 4B08 
BITI3 = O°0000 4798 
BIT14 = O40000 4788 
BITIS = 100000 4778 
BITe = 000004 O08 
BIT3 = 000010 4998 
BIT4 = 000020 4984 
BITS = 000040 4978 
BiTé = 000100 4968 
BIT? = 000200 4958 
BITB = OOO4O0 4o58 
| BIT§_ = 901000 4938 
| BPTVEC= 000014 509 
| BUFTST 001702 3148 
{ 001236 3 
= 167770 35988 803 804 805 806 
| DECML 30 1283% 1296 13028 
| DISPLA= 177570 4348 
| ORBHIO 001224 Bigs ex Sex 3% 
'DRCSR 01216 8138 850 1i0l* 1102 1112 1113 11224 1123% 1133% 
147% 1156% 1157" 1155% 1169" 170% 1172% 1182® 1183% 1184s 
' DRIBUF 001222 8158 B32 10 038 1047 059% 1060 
/ORLVL 901230 8198. 1097* 1190 
| DROBUF 01220 8i4s 870 872 882% 883 990 898% 899 905% 06 
| eat ae QSi# 955 1031* 1032 1037* 1038* 1039 1046* 
| DRVECA 001226 138 107% 1083* 1099% 1110% 1120 1131% 1142% 1154* 1167% 
| DRVECB 001232 1089% 
| EMTVEC= 000030 3 et 
1 123 12398 
a 
Soss 
FIRST 001272 827 468300—Ss«éB328 
/GNS = #eeEEE U 1640 1641 1642 1643 
HOFHM 004214 1317 1138 
HLT = 104000 3968 4 


876 886 894 902 909 924 938 946 
993 1001 1005 1013 1021 1027 1034 1041 





ee 
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1081 1093 1104 4115 lies 1136 1149 1161 1174 1187 
ICOUNT OO4366 869% 881% 889# 897% 913% S7S* i0le* 1044* 1056# 1349 
IOTVEC= 000020 5108 
004240 2 13288 
LOGI p03 10 787 1234s 
00474 1249 1269 14448 
MESS1 O0471le 842 14398 
MINUS 004036 1287 12908 
MK OO4OEE 1e9te §=6:1299 
004150 1308% 1310 
MOREID 004410 865 13658 
MSPACE 004752 1254 1259 1264 144S8 
PC =~%0000097 4088 446% 798% 827% 830% 838% 840# 843% 847% 86S5* 1203% 1234* 1413% 
1416% 14278 143S* 1481# 1488% 1493% 
PFAIL O04S24 780 13888 
PIRQ = 177772 4328 
PIRQVE= 000240 cise 
PL 001240 B24e 1097 
PRTAB 003756 1278% 1369 1374 
PS = 177776 429 439 
PSH = - 177776 t 4308 867% 7* 1008% 1075* 1079 1088* 1091% 1098% 1108 1109% i1!1g* 
' 1119% 1129% 11308 1140% 1141 1L1S3% 1165* i\166* 1178% 1179% 1335% 
PWRVEC= 000024 Slie 1581% 1582% 1590 1605*  i606# 
RCSR 001200 8038 B49 1419 
RCSRI 001210 8078 1429 
RESTAR O04S62 13% 13998 
RESVEC= 000010 S068 
RETURN 004372 8539 1336 1354 13588 
RSTART 901414 8588 5 l2e3 1407 
RS =%006000 4018 4378 Suoe 851 8S2 853 coy gss B56 8S7 872% 883% 884 
299% 906* 907 918% S20* S2e 935% 936 943% Sy cx 969% 
978%  1045% 104 1048 1051* 1060% 1061 1068% 1069 lellx 1213 1216 
1217 1218 1219 1 lee2l r4 le3ex le 1388 1406 1419% 1420% {42ex 
1426% 1429% 1430% 1432% 1434# 1473 1474 1475 1478 1 1 1624 
l62e5% 1 iggre 162e8% 1629% 
| Rl =7000901 a 4328 # 839% £ 8S1# 852% 3% 4s 855% 856% * 1389 
ia iiic* ious ico 1421% 1422 1423% 1424 142e5* 1426 1430 1431 1432 
Re =~p000ne2 4398 914% 915 919% 921% S22 1194 1196* 1204 120S* . 1286 1292 
1368% 1373% 1390 1404% 5 1602% 
R32 =7%000003 4048 } 916% 1 7* 1195 1197 1199% 1206% 1291% 1294 
ieee i 1391 1403% 1532 1S41* 1547% 1S48% 15Six 1556% 1557% 5 1567% 
Fe =”%000004 4418 917% 925% O54" 1280% 1392 1402e 1533 1535 
1536% 1537% 1539% 1553 155S5* 1563% 1566% 158 1600% 
RS =%000005S 2 44O8 B6b* 914 4s S65 968% 976% % 984 987% 
aoe ach % % 1002% * 1011 1017# 1018% 1019 1024% 
1 1067% 1068 1078 1082% 1090% 1094% 1213s 1215 lel6e 217% 1218% 
1e19% leede leelx leeee 1 1401* 1 1540# 542% 1544 154S*e 1S46% 1547 
1S65* 1588 1599# 
FE =%000006 407 4438 ye % ea * B44 84S 8S8* 1076 1087% 1100% 
1111# llel# 1132% 1143% 1343% 1361 
1395 1399% 
| R7 =%, 408 444s 1321% 
' SAVCC § 017402 1247% 1255 16498 
SAvPC §=© 017400 le46* 1250 164748 


‘ilmenite eae eaee 
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Save 003 1194 1205 12748 
003 1195* 1206 i275 
Save4 003754 12768 
VRE 004560 1395* 13988 1399 
OPEA 004260 1348 =: 13548 
SCOPEB O042Se 13348 1340 3 
OPEF 004370 860% 1349 1351 1353% 13578 
SCOPEG 004354 1350 =: 13838 
SEVEN O042c6 1e8ee 1291 1302 1308* 13238 
SP ss = “000006 4O7# 8 44Se 877 ieS0e 1e5S* 1260 1265* 1473% 1474 1475% 77 ~=—s«1478 : 
1482 14e4e )«=1486e «= 1492 S04 §=— 1528S) 1526 = 527% §=1S32* 1533 1534" 1540 1565 
1566 1567 1568% 1569% 1583* 1584 i585 i566e 1587* 1586* 1589 1695* 1599 
1600 1601 1602 1603 1604 624% 1625 
SPEC 001256 790 8298 
SPECO O0461e2 831 1411s 
SPEC!  O04642 1413-14198 
SPECe 004672 840 81416 =: 14298 
SR e= 177570 3978 6863 1207 1224 1243 ~~ 1270 
STACK = 001100 4ebs 
STAR OO4044 289 «:1291# = 1311 
START 001366 791 845# 1239 = 1417 
START! 001242 789 Bebe 
= 177774 4318 
STKPTR= 001200 3998 826 829 gs8 877 1076 
1168 =:1181 
SUR = 177570 4338 1201 
SWO. = 000001 4748 
SWwOO = 1 HE 
SwOl = 4638 473 
SWOe = OOCO04 ube = 4172 
SWO3 = 000010 ule = 471 
SwO4 = 000020 4608 470 
SWwOS = 000040 4598 
| SWO6 = 000100 4588 1201 
| SWO7? = 000200 4578 467 
SwO8 = OOO0400 4oSe 
Sw03 = 001000 yose = 465 
Sl = 000002 4738 
SWiO = 002000 4138 84548 1207 
Swil = 004000 4i4@ 4538 1347 
SWi2 = 010000 4528 
SW13 = 020000 41iS¢ 6964518 = 1243 
| Swi4 = O40000 4168 4508 1339 
Bo 2 im we 
‘ = 
843 = OO00I0 Wie 
| oud = 000020 4708 
|2ae = 900100 uees 
= 
| SW? s b0200 4674 
‘SWB == 000400 4668 : 
iSW9 = 901900 4l28 = 46S# = B63sCéL EY 
| 186 001 r 
| TBITVE= 000014 ’ 
' TINT! 002710 1099 = 11058 
| TINTe 002760 111014178 


ne er OS 


ee ee ee 
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44-4414 
O44 4 we 
qaaaa 
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SHESSeg9 
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13228 


1254 


1266 


1303% 


1341 


1538% 


1597% 


1290% 
1313 
16438 


LO3 





1259 1284 = «126915591607 16408 
rt 


13258 


1S49* 15758 


16118 


1315* 1365 1370% 1375* 1378% 1381% 1492% 14958 
1319 1371 1376 1379 1382 1490 1494% 
16448 
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SOFILL 005317 
‘ = 017404 


~HLT 003626 
-SCOPE 004264 
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1643 
33 5 
Se 
S75 577 
601 603 
7? 629 
653 655 
679 681 
705 707 
731 733 
757 759 
7928 7998 
985 992 
1173 1186 
1497 1498 


Pah 583 
60 609 
633 635 
689 661 
685 687 
711 713 
737 739 
763 765 
893 901 
1004 1012 
127 132 

159 
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1250 


1642 
422 


519 


1576 


1615 


856 
1036 


1643 


1500 


1255 


1643 


304 
1043 


1576 


1260 


1615 


1265 


NO3 


932 946 948 
1065 1074 1086 


ee eee + e+ 


1108 


974 
1117 
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STYPE ls S208 8 i447 
STYPO ls 4208 1500 
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-MAIN. MACYLI 27.732) deere’ 15:53 PAGE 46 
DODRAAR. Pil CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


MOVE NTS INGE 15251826 182918301831 
NOP 1980 «1091103 H 1241135 11MG 
RESET 871 B91 77 10101198 
ROL He 1544 15NS SHG 1548 
RT! igis erg dass 480 187008 
| RTS B43 B47? 32k 1384 = 14271435 
Sua 1213, lele 121712181219 
TRAP = 1631 1641 INE) 1643 
TST B92 915 101] 1025S 214 12701286 
S78 958 1018S tee?) 1230s 13131319 
ASCIZ «19391444 HHS 
BYTE 1258 1253257 = eSB 126218631267 
-ENRBL . 
| END «1651 
|-ENMOC 89427, 03517, S19ss12S312SH 1258 
15891599 1608 1b1S 1616 b28 
; EQUIV 427 He 430 HS HES 
> ee ee Pe ae 
EVEN «14481614 
IF 45 47S 503 519 1252 1257 
1589 «15991607 1608 «= ible 1615 1624 
'.IFF 0 42S s12S2 125312571288 1eb2 1263 
|-IIF 1252 128560 1261) eB HSH HSS 1496 
| 1RP 19 1583-1599 
| -LIST 1 5S 419 SI7 529 1631 1640 
' 1 1631 
e 420 421 0—s‘S17 
| -NLIST ] S 419 SI7 519° 1631 1640 
| -REN b 
{REPT = S21 
| -SBTTL «42314491502 = 1S7B 16171632 
WORD 9H1s16H? 1649 


' ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


| #, DODRAA. SEQ/SOL/CRF /PAGNUM/NL : TOC/DS: ERFZ=DDDRAA. SML, DDDRAA.P11 
TINE: 16 20 2 SECONDS 

ME IG: 90/39=2.3 
USED: 21K (41 PAGES) 
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